home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / misc / amag / 12b92.lha / Tips & Tricks / Disk aus (C, BASIC, Ass.) / Disk_aus.bas < prev    next >
BASIC Source File  |  1992-11-02  |  296b  |  14 lines
  1. ' Alle Tasks mit Namen trackdisk.device entfernen
  2. DECLARE FUNCTION FindTask&() LIBRARY
  3. LIBRARY "exec.library"
  4. taskname$="trackdisk.device"+CHR$(0)
  5. start:
  6.  task&=FindTask&(SADD(taskname$))
  7.  IF task&<>0 THEN
  8.   RemTask& task&
  9.   PRINT "Trackdisk-Task entfernt"
  10.   GOTO start
  11.  END IF
  12. LIBRARY CLOSE
  13. END
  14.